home *** CD-ROM | disk | FTP | other *** search
/ Precision Software Appli…tions Silver Collection 4 / Precision Software Applications Silver Collection Volume 4 (1993).iso / stats / mathx30.exe / ONEARM.APL < prev    next >
Text File  |  1991-03-27  |  4KB  |  105 lines
  1. | ONE ARM BANDET GAME
  2.   COPYRIGHT 1990, BY DAVID DENKER
  3.   Box 115, Isanti, Mn. 55040 |
  4. z''=info:z'=int((z''-int(z''/10000)*10000)/1000):Z'=Z'*2
  5. bc3:cls:DIGL6,DIGR0,XOFF,BC3,CLS,S'=0
  6. IF Z'<>2}}Z'=0:IF Z'=2}900
  7. dsp f5"                         JUST FOR FUN ONE ARM BANDIT!
  8. "n
  9. #900
  10. DSP f0"             ▐█▌              "f10" $ $ $"f0"  = $14,000"
  11. dsp f4"           $5 PER PULL
  12.       "f0b6"╔══════╧═╧══════╗"b3f10"        $"f4" "f10" $"f0"  = $1,700
  13.       "b6"║ * * * * * * * ║"b3f10"        $ $"f0"    = $250"
  14. dsp f5"             ╔════════════╗"f0"
  15.       "b6"╟───────────────╢"b3" ▓     "f4"   "f0"  = $7,000"
  16. dsp f5"           ║"f1"  STANDING"f5"  ║"f0"
  17.       "b6"║ ▌"f10" $"f4" "f10" $"f4" "f10" $"f0"   ║"b3" ║"
  18. dsp f4"      "f10" $"f4"  "f0" = $1,300          "f5" ║"f0" $       "f5"   ║
  19.       "f0b6"║  ╔═╗ ╔═╗ ╔═╗  ║"b3" ║     "f4"   "f0"   = $150"
  20. dsp f5"             ╚════════════╝"f0"
  21.       "b6"║  ║ ║ ║ ║ ║ ║  ║"b3" ║      THREE MATCHING     = $200
  22.       "b6"║  ╚═╝ ╚═╝ ╚═╝  ║"b3" ║      TWO MATCHING AND"f10" $"f0" = $100
  23.       "b6"║  "f4d4f0"  ┌───┐  "f4d3f0"  ╠"b3"═╝         (any order count)
  24.       "b6"║    ╘═══╛    ║"b3f5"        HIT ESC TO QUIT
  25.       "f0b6"╚═══════════════╝"b3f1"        HIT ANY OTHER KEY TO PULL HANDLE"
  26. DSP B7f14r(8-Z')c10d1c14d1c18d1F0B3
  27. #910
  28. SC:CC15:BC4:IF SGN S'=-1}911:CC14:BC2:#911:ROW(6-Z'):COL60:DSP (S'):RC
  29. I'=KYIN:IF I'=27}Q:S'=S'-5
  30. cc0:DSP r(5-Z')c24" "r(6-Z')c24"▓"c24" "r(7-Z')c24"▓":TONE6
  31. DSP c24" "r(8-Z')c24"▄"
  32. SC:bc7:DSP r(8-Z')c10"░":TONE8:DSP c14"░"c18"░":TONE11:RC
  33. DSP c24"║"r(7-Z')c24"▓":TONE14:DSP c24"║"r(6-Z')c24"▓"c24"║"r(5-Z')c24"▓"
  34. TONE16:TONE15:TONE13:CALL920:TONE40:CALL921:CALL923:A'=B':ROW(8-Z'):COL10
  35. SC:BC7:CC(C'):DSP d(B'):RC
  36. TONE12:TONE11:TONE9:CALL920:TONE38:CALL921:CALL923:A''=B':ROW(8-Z'):COL14
  37. SC:BC7:CC(C'):DSP d(B'):RC
  38. TONE8:TONE7:TONE5:CALL920:TONE36:CALL922:CALL923:A'''=B':ROW(8-Z'):COL18
  39. SC:BC7:CC(C'):DSP d(B'):RC
  40. IF A'=A''}901:IF A'=A'''}901:IF A''<>A'''}910:GOTO902
  41. #901
  42. IF A''=A'''}905
  43. #902
  44. IF A'*A''=16}903:IF A''*A'''=16}903:IF A'*A'''=16}903
  45. IF A'+A''=72}904:IF A''+A'''=72}904:IF A'+A'''=72}904
  46. IF A'=36}908:IF A''=36}908:IF A'''=36}908:GOTO910
  47. #903
  48. IF A'=36}912:IF A''=36}912:IF A'''=36}912
  49. S'=S'+150:X''=6:CALL930:CALL933:GOTO910
  50. #904
  51. IF A'=4}909:IF A''=4}909:IF A'''=4}909
  52. S'=S'+250:X''=3:CALL930:CALL933:GOTO910
  53. #905
  54. IF A'=36}906:IF A'=4}907:S'=S'+200:X''=7:CALL930:CALL933:GOTO910
  55. #906
  56. S'=S'+14000:X''=1:CALL930:CALL930:CALL930:CALL933:CALL960:GOTO910
  57. #907
  58. S'=S'+7000:X''=4:CALL930:CALL930:CALL933:GOTO910
  59. #908
  60. S'=S'+100:X''=8:CALL930:CALL933:GOTO910
  61. #909
  62. S'=S'+1700:X''=2:CALL930:CALL933:GOTO910
  63. #912
  64. S'=S'+1300:X''=5:CALL930:CALL933:GOTO910
  65. #920
  66. X'=CINT(RAND*.272-.499):RET
  67. #921
  68. B'=DATA X'{3,4,5,6,229,1,2,30,7,35,45,61,240,3,5,6,229,1,2,30,7,35,45,61,
  69. 240,36,229}:RET
  70. #922
  71. B'=DATA X'{3,4,5,6,229,1,2,30,7,35,45,61,240,3,5,6,229,1,2,30,7,35,45,61,
  72. 240,36,4}:RET
  73. #923
  74. C'=DATA X'{4,4,0,0,4,14,0,6,0,0,0,0,0,4,0,0,4,14,0,6,0,0,0,0,0,10,4}:RET
  75. #930
  76. BEEP:SC:CC4:ROW(X''+1-Z'):COL29:DSP d16:CALL932:CALL950:CALL950:RC:CALL940
  77. CALL940:CALL940:CALL940:CALL934:RET
  78. #932
  79. SC:BC6:ROW(4-Z'):COL8:CC12:DSP d15" ":CC14:DSP d15" ":CC10:DSP d15" "
  80. CC12:DSP d15" ":CC10:DSP d15" ":CC14:DSP d15" ":CC12:DSP d15:RC:RET
  81. #933
  82. WAIT2:DSP c29r(X''+1-Z')" ":GOTO935
  83. #934
  84. SC:ROW(4-Z'):COL8:DSP B6F0"* * * * * * *":RC:RET
  85. #935
  86. DSP B3F0r(2-Z')c13"▐█▌":RET
  87. #936
  88. IF X''<>1}R:IF int((z''-int(z''/1000)*1000)/100)=0}937
  89. DSP c13r(2-Z')B3F12"▐█▌":RET
  90. #937
  91. DSP c13r(2-Z')"><":RET
  92. #940
  93. SC:CALL936:cc15:bc6:DSP r(11-Z')c13"o8o":TONE0
  94. DSP c13F0"═"F15"o8"r(12-Z')c13"o8o":TONE0:CALL935
  95. DSP F15B6r(11-Z')c13"8o"F0"═"r(12-Z')c13"═"F15"o8":TONE0
  96. DSP r(11-Z')c13"o"F0"═"F15"o"r(12-Z')c13"8o"F0"═":TONE0:CALL936
  97. DSP F0B6r(11-Z')c13"═══"r(12-Z')c13F15"o"F0"═"F15"o":TONE0
  98. DSP r(12-Z')c13F0"═══":RC:RET
  99. #950
  100. TONE56:TONE58:TONE59:TONE63:TONE63:TONE61:TONE63:TONE63:RET
  101. #960:IF Z'=2}R
  102. DSP R18F4C7;  YOU MAY WANT TO HIT THE PRINT SCREEN KEY TO PROVE TO YOUR
  103.         FRIENDS YOU HIT THE BIG ONE.  IT DOES NOT HAPPEN VERY OFTEN!!;
  104. WAIT20:DSP R18C0S160:RET
  105.